home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 March / Ahoy_Magazine_85-03_1985_Double_L.d64 / numer. c-64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  125 lines
  1. 10 rem"***numerology for c-64***"
  2. 12 rem set screen colors and lock in case
  3. 14 poke53280,1:poke53281,1:poke646,6:printchr$(142)chr$(8):r$=chr$(13)
  4. 16 rem print initial screen
  5. 18 print"[147]       [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"
  6. 20 print"       [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"
  7. 22 print"              numerology"
  8. 24 print"   i will analyze a name or date for    its mystical vibrations."
  9. 26 print"   according to the ancients, these","vibrations contributed ";
  10. 28 print"characteristics"
  11. 30 print"       [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"
  12. 32 print"       [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"
  13. 34 rem colors changes
  14. 36 forj=2to7:poke53280,j:fori=55496to56095:pokei,j:nexti,j
  15. 38 poke53280,1:poke53281,1:poke646,6:printchr$(142)chr$(8):r$=chr$(13)
  16. 40 rem set all counters and strings to zero
  17. 42 v=0:z=0:n$="":a$=""
  18. 44 rem
  19. 46 print"[147]analyze a name ([150]n) , or a date ([150]d)?"
  20. 48 print"(hit q to quit)"
  21. 50 getq$:ifq$=""then50
  22. 52 ifq$="q"thenprint"[147]bye now":end
  23. 54 ifq$<>"n"andq$<>"d"then46
  24. 56 ifq$="n"then96
  25. 58 rem breaking a date into its single number
  26. 60 print"[147]date to be analyzed -- numbers only"
  27. 62 print"(proper form would be 12 15 1984)":input n
  28. 64 n$=str$(n)
  29. 66 fori=2tolen(n$)
  30. 68 a$=mid$(n$,i,1)
  31. 70 ifasc(a$)=32orval(a$)>0 orval(a$)<10then74
  32. 72 print"invalid character entered - try again":goto60
  33. 74 ifasc(a$)=32thennext
  34. 76 z=z+(val(a$)):next
  35. 78 z$=str$(z)
  36. 80 v=0:iflen(z$)<=2then132
  37. 82 fori=1tolen(z$)
  38. 84 v=val(mid$(z$,i,1))+v
  39. 86 next
  40. 88 ifv<10thenz$=str$(v):goto132
  41. 90 z$=str$(v)
  42. 92 goto80
  43. 94 rem breaking a name into its number
  44. 96 print"[147]name to be analyzed -- letters only"
  45. 98 print"(proper form is name commonly used -    full name or nickname)"
  46. 100 input n$
  47. 102 fori=1tolen(n$)
  48. 104 a$=mid$(n$,i,1)
  49. 106 ifasc(a$)=32orasc(a$)>65or asc(a$)<91then110
  50. 108 print"invalid characters entered - try again"
  51. 110 ifasc(a$)=32thennext
  52. 112 z=z+(asc(a$)-64):next
  53. 114 z$=str$(z)
  54. 116 v=0: iflen(z$)<=2then132
  55. 118 fori=1tolen(z$)
  56. 120 v=val(mid$(z$,i,1))+v
  57. 122 next
  58. 124 ifv<10thenz$=str$(v):goto132
  59. 126 z$=str$(v)
  60. 128 goto116
  61. 130 rem printing out the outcome
  62. 132 n=len(n$):n=(40-n)/2
  63. 134 print"[147]"tab(n)n$r$spc(8)"vibrates to the number "z$r$r$
  64. 136 z=val(z$):fori=0to(z-1)*10:readb$:next
  65. 138 fori=1to10:readb$:printb$;:next
  66. 140 printr$r$r$spc(9)"hit any key to cont."
  67. 142 geta$:ifa$=""then142
  68. 144 restore:goto38
  69. 146 rem data statements for the outcome
  70. 148 data,"ruled by the sun. driving life force. a leader, ambitious, impatient"
  71. 150 data",an explorerextrovert, automatically assumes command"
  72. 152 data"very strong feelings. entitled to praisewhich can spur to"
  73. 154 data" greater things. desirefor action & vigor to do.  trouble",,,
  74. 156 data" with long range projects. should choose one  thing and stick"
  75. 158 data" with it.  courage and   self reliant."
  76. 160 data"compatible with other fires- 1, 3, or 9"
  77. 162 data"ruled by the moon. sensitive, domestic, emotional."
  78. 164 data"easily moved to tears. fertileimagination.  fond of"
  79. 166 data" home. patriotic.  prefers to live near water. musical     ",,,,
  80. 168 data"talent. quiet power of judgement.  good planner. changeable"
  81. 170 data" disposition,        restless, emotional."
  82. 172 data"  compatible with   other waters- 2, 7
  83. 174 [131]"ruled by jupiter. investigator,scientistseeker, material rather"
  84. 176 [131]" than spiritual. good sense of humor. trusting. likes to know why"
  85. 178 [131]" and how.not interested in money",,,,
  86. 180 [131]"ability plus confidence.  impatience.   talent & versitile"
  87. 182 [131]". quick thinking and  intuitive."
  88. 184 [131]"compatible with other fire- 1,3, or 9"
  89. 186 [131]"ruled by uranus. appears strange and    eccentric. ahead of his time."
  90. 188 [131]" interest  in occult, psychic & out of the ordinary"
  91. 190 [131]"intuitive.sarcastic if crossed. liberty,equality." ,,,,
  92. 192 [131]"success in science & mechanicalfields. steady and stable."
  93. 194 [131]" strength and pride. good with details, accurate."
  94. 196 [131]"     compatible with other airs - 4 or 5"
  95. 198 [131]"ruled by mercury. active physically and mentally. inquiring,"
  96. 200 [131]" exploring. likes   reading and research. linguistic. good  teacher,"
  97. 202 [131]"writer, secretary. friendly,    methodical, orderly.",,,,
  98. 204 [131]"independent thought and action. spirit of adventure."
  99. 206 [131]"        speculator. likes the dramatic."
  100. 208 [131]"         compatible with other airs - 4 or 5"
  101. 210 [131]"ruled by venus. gentle, refined, comely,sociable, pleasant.  "
  102. 212 [131]" a peacemaker.     difficulties in finances. friendly and  agreeable."
  103. 214 [131]"  a good host or hostess.  ",,,,
  104. 216 [131]"   success through competence, you should  fulfill  what you promise."
  105. 218 [131]" integrity andtrust.  popular socially & politically."
  106. 220 [131]" compatible with other earths - 6 or 8"
  107. 222 [131]"ruled by neptune. psychic, introvert,   mysterious. does not"
  108. 224 [131]" say much,but knows much. drawn to occult. likes fishing"
  109. 226 [131]".   takes from haves, gives to have-nots.",,,,
  110. 228 [131]"   successin art, science, philosophy,     through planning.tends"
  111. 230 [131]" to be inpracticaldreamer, needs a positive goal."
  112. 232 [131]"         compatible with other waters - 2 or 7"
  113. 234 [131]"ruled by saturn. cold, pessimistic. no  sense of humor."
  114. 236 [131]" success in finances.    associated with  mining, real estate,   law,"
  115. 238 [131]" cemeteries,pawn shops. hard worker.concerned with the past.",,,,
  116. 240 [131]" thrives on     progress and activity. guard against    petty "
  117. 242 [131]"jealousy.   think big aim high.   material success."
  118. 244 [131]"  compatible with otherearths - 6 or 8"
  119. 246 [131]"ruled by mars. emotional, jealous. tied to family. active."
  120. 248 [131]" loyal. suspicious of strangers, impulsive. afraid of unknown."
  121. 250 [131]"associated with surgery, physical and   mental illness.",,,,
  122. 252 [131]"  high and honorable     ideals.  avoid drudgery. never resort"
  123. 254 [131]" topetty tactics. proud and arrogant, self-interst.
  124. 256 data"  compatable with other  fires- 1, 3, or 9"
  125.